Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/vbpxen/vvstart.frm

Text File | 1995-10-23 | 6KB | 212 lines

VERSION 2.00
Begin Form form0
   BackColor       =   &H00FFFFFF&
   Caption         =   "Visual Video Demo"
   ClientHeight    =   3240
   ClientLeft      =   3540
   ClientTop       =   1305
   ClientWidth     =   5790
   Height          =   3930
   Icon            =   VVSTART.FRX:0000
   Left            =   3480
   LinkMode        =   1  'Source
   LinkTopic       =   "Form2"
   ScaleHeight     =   3240
   ScaleWidth      =   5790
   Top             =   675
   Width           =   5910
   Begin TextBox dbdir
      Enabled         =   0   'False
      Height          =   375
      Left            =   240
      TabIndex        =   7
      Text            =   " "
      Top             =   2640
      Width           =   1455
   End
   Begin CommandButton Command1
      Caption         =   "E&xit"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   12
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   495
      Left            =   2400
      TabIndex        =   1
      Top             =   2520
      Width           =   855
   End
   Begin PictureBox Picture2
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   4560
      Picture         =   VVSTART.FRX:0302
      ScaleHeight     =   495
      ScaleWidth      =   495
      TabIndex        =   5
      Top             =   2280
      Width           =   495
   End
   Begin PictureBox Picture1
      Height          =   495
      Left            =   360
      Picture         =   VVSTART.FRX:0604
      ScaleHeight     =   465
      ScaleWidth      =   465
      TabIndex        =   4
      Top             =   240
      Width           =   495
   End
   Begin Label Label4
      Caption         =   "Have a nice life"
      Height          =   255
      Left            =   4200
      TabIndex        =   6
      Top             =   2880
      Width           =   1695
   End
   Begin Label Label5
      Caption         =   "Database directory:"
      Height          =   255
      Left            =   240
      TabIndex        =   8
      Top             =   2280
      Width           =   1815
   End
   Begin Label Label6
      Caption         =   "by Steve Jackson, October 1991"
      Height          =   375
      Left            =   480
      TabIndex        =   9
      Top             =   1560
      Width           =   4815
   End
   Begin Label Label2
      BackColor       =   &H00FFFFFF&
      Caption         =   "Written in Visual Basic and Paradox Engine"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   255
      Left            =   480
      TabIndex        =   2
      Top             =   1200
      Width           =   5055
   End
   Begin Label Label3
      BackColor       =   &H00FFFFFF&
      Caption         =   "Video checkout system for Windows"
      FontBold        =   -1  'True
      FontItalic      =   -1  'True
      FontName        =   "MS Sans Serif"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   375
      Left            =   1200
      TabIndex        =   3
      Top             =   720
      Width           =   4935
   End
   Begin Label Label1
      BackColor       =   &H00FFFFFF&
      Caption         =   "Visual Video Demo"
      FontBold        =   -1  'True
      FontItalic      =   -1  'True
      FontName        =   "MS Sans Serif"
      FontSize        =   18
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   495
      Left            =   1200
      TabIndex        =   0
      Top             =   240
      Width           =   4455
   End
   Begin Menu Menucheckout
      Caption         =   "&Checkout"
   End
   Begin Menu MenuReturn
      Caption         =   "&Return"
   End
   Begin Menu MenuCustomer
      Caption         =   "C&ustomer"
   End
   Begin Menu MenuInventory
      Caption         =   "&Inventory"
   End
   Begin Menu MenuAbout
      Caption         =   "&About"
   End
End

Sub Command1_Click ()
    rc = Shutdown()
    End
End Sub

Sub Command2_Click ()

End Sub

Sub Form_Load ()
    screen.MousePointer = POINTER_HOURGLASS
    rc = StartUp()
    screen.MousePointer = POINTER_DEFAULT
    dbdir.text = db_dir
End Sub

Sub Form_Unload (Cancel As Integer)
    rc = Shutdown()
End Sub

Sub MenuAbout_Click ()
    ' Show it modeless
    vvabout.Show 1
End Sub

Sub Menucheckout_Click ()
    screen.MousePointer = POINTER_HOURGLASS
    checkout.Show
    screen.MousePointer = POINTER_DEFAULT
End Sub

Sub MenuCustomer_Click ()
    '
    '  Start the customer edit form MODELESS,
    '  which means it must be completed before returning
    '
    screen.MousePointer = POINTER_HOURGLASS
    custedit.Show 1
    screen.MousePointer = POINTER_DEFAULT
End Sub

Sub MenuInventory_Click ()
    '
    '  Start the inventory edit form MODELESS,
    '  which means it must be completed before returning
    '
    screen.MousePointer = POINTER_HOURGLASS
    itemedit.Show 1
    screen.MousePointer = POINTER_DEFAULT

End Sub

Sub MenuReturn_Click ()
    returnform.Show
End Sub

Sub Picture1_Click ()
    MenuAbout_Click
End Sub

Sub Picture2_Click ()
    rc = MsgBox("Have a very nice life!", MB_ICONEXCLAMATION, "Life")
End Sub